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BEGIN 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYHARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


!® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND sortce 
!* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH ahh AND WITH THE 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFT WARE OR ANY OTHER 

1 COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
® 
a 
a 
® 
® 
® 
® 
we 
® 
ie TRANSFERRED. * 
*® 
® 
® 
® 
® 
® 
® 
*® 
® 
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ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
i: oeePOhat ihn. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


!* DIGITAL ASSUMES NO RESPONSIB 
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FACILITY: MOUNT Utility Structure Level 2 

i ABSTRACT: 


This module Sqneraces a window mapping the desired VBN from 
the supplied re * eader. This module is a direct crib from the 


SEAE 
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9 3 FCP module WITURN. chen we get conditional compilation with different 
re Bae parameter files worked out, they should really be the same source. 

4 i ENVIRONMENT : 

é 004 


sree operating system, including privileged system services 
and internal exec routines. 


AUTHOR: Andrew C. Goldstein, CREATION DATE: 7=-Dec-1976 14:38 
i MODIFIED BY: 


v03-001 HHO041 ag 4 4- yhsT 
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v02-001 ACG0167 Andrew C. Goldstein, 18-Apr-1980 13:39 
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LIBRARY SL SRC TORARY'L 18, L532": 
REQUIRE ‘SRC$:MOUDEF .B52°; 


3 
MWTUR b-§ -1984 01:27: VAX-11 Bliss-32_V4.0-742 Pp ROH( 
1002080 17r80p- 138s Phi eei ts NS yWBHASTERCCMOUNT. ShcoMWTURZ.B320%%" (23 v04: 
GLOBAL ROUTINE TURN.WINDOW2 (WINDOW, HEADER, DESIRED_VBN, START_VBN, RVN) = 
+4 


FUNCTIONAL DESCRIPTION: 


This routine scans the map area of the supplied file header 
and builds retrieval pointers in the window until 

(1) the entire header has been egannee. or 

(2) the first retrieval pointer in the window maps the desired VBN 


CALLING SEQUENCE: 
TURN_WINDOW (ARG1, ARG2, ARG3, ARG4, ARGS) 


INPUT PARAMETERS: 
ARG1: address of window block 
ARG2: address of file header 
ARGS: desired VBN 
ARG4: piers ig VBN of file header 
ARGS: RVN of Tile header 


IMPLICIT INPUTS: 
NONE 


~“ 
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OUTPUT PARAMETERS: 
updated window 


IMPLICIT OUTPUTS: 
NONE 
95 eee | VALUE : 


SIDE EFFECTS: 
NONE 


: BEGIN 

33 5 map 

36 WINDOW : REF BBLOCK, ! pointer to window 

3 HEADER : REF BBLOCK; ! pointer to file header 
Os LINKAGE 

64 L.MAP_POINTER = 


JSB : 

GLOBAL (COUNT = 6, LBN = 7, MAP_POINTER = 8); 

GLOBAL REGISTER 
COUNT 


ttttaatatdatttctcttt tutte 


Mn — ot ot ot 
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= 6, ' retrieval pointer count 
LBN = 7, ! retrieval pointer start LBN 
MAP_POINTER = 8 : REF BBLOCK; ! pointer to scan header map area 
LABEL 
¢: MAP_BUILD; ! Loop to build window map 
LOCAL 


vOa~0 i se] 2:85:58 DiSkSimSmASTERsCMOUNT-SRCIMVTURZ.B32;9°" (25 


VBN, ! VBN in scanning window 
COUNTER i loop counter 
W_POINTER : REF BBLOCK; | pointer to scan window 


MACRO 
WINDOW _MAP = (,WINDOW+WCBSC_MAP)%; !start of window map area 


EXTERNAL ROUTINE 
GET_MAP_POINTER : L_MAP_POINTER; ! get value of next header map pointer 


! Scan the utotey Bigs nde for the Stare ar — of the header. If it is 
' contained within ndou. truncate the window so that it maps exactly 
! = Ss the start ic the header. If tbe starting VBN is not contained in the 
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Scans 


oO 
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! The window is now eurtenty initialized, Set up necessary pointers. 
r 


: Now scan the map area, extracting retrieval pointers. 


w 
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as 

gs 
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Te 
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ee 
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=? 

ym 
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> 66 ! dow, the entire window must be discarded. However, if the desired VBN 
oe 28 ! precedes the header start VBN, we do nothing since the window is already 
; 3 66 ' best effort. 

a es: 8 

: 140 0670 W_POINTER = WINDOW ! point to first retrieval pointer 
; 11 por) VEN = .WINDOW wesc s STVBN); ! get starting VBN of window 
3 128 berg IF .START_VBN LEQU .VBN 

3 6144 0674 OR 

3 «6145 0675 BEGIN 

; 146 76 INCR J FROM 1 TO .WINDOWCWCBSW_NMAP) 

3 147 77 dO 

: 148 0678 4 BEGIN 

3 «149 0679 4 — = ,.VBN + .W 5 ty COUNT); ! VBN at end of this pointer 
3 150 0680 4 W_POINTER = .W PO] + 6; 

: 191 0681 4 A START _VBN EGL yon 

; 136 pons 4 

: 35 06 EN REGIN : 

3; 6154 0684 WINDOWCWCBSW_NMAP] = ! truncate the window 

» Tae eH EXITLOOP 0; 

s 136 one 4 3 

3; 6157 0687 4 END 

; 158 e374 END 

3; «6159 689 : 

; 160 0690 THEN ! header VBN is not in window 
3 6161 369) BEGIN 

3 166 3 IF “DESIRED VBN LSSU_ .START_VBN 

s 16 069 AND .START_VBN GTRU 1 

3 6164 94 THEN 

3; 165 95 RETURN 1 ! Leave it alone 

3 166 9 LSE 

3; 16 97 & BEGIN 

; 168 4 4 WINDOWCWCBSW_NMAP] = 0; ! flush the window 

3 169 88 4 a WCBSL~STVBN] = .START _VBN; 

3 179 09 4 g POINTER = QINDOW_MAP; ! point to first pointer 
; 17 END; 

: 198 5 

3 «6174 

3 17? 

: 179 

; 178 


SSNS 


MAP_POINTER = .HEADER + .HEADERCFH2$B_MPOFFSETI*2; ! point to map area 


ae 
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79 9 
0) MAP_BUILD: BEGIN 
1 } UNTIL .MAP_POINTER GEQA .HEADER + (.HEADERCFH2$B_MPOFFSET] + .HEADERCFH2$B8_MAP_INUSEJ) * 2 
: BEGIN : 
5 : GET_MAP_POINTER (); 3 
87 1 ! Build new retrieval pointers, using as many as needed to run out the : $ 
+ ' count. If the window is full, shuffle the entries up by one. If this 2 RI 
1 i would cause the pointer mapping the desired VBN to fall off the top, 7 € 
! we are done. : P 
~ : mM 
s 


1f .COUNT NEQ 0 

WHILE 1 DO 

IF (.WINDOWCWCBSW_NMAPJ+1)*6 + WCBSC_LENGTH 
GTRU .WINDOWLOCBSW_SIZE) 
BEGIN 
IF .WINDOWCWCBSL frye + ,WINDOWCWCB$W_P1_COUNT] GTRU .DESIRED_VBN 
THEN LEAVE MAP_BOIL 
WINDOW(WCBSW_NMAP] = .WINDOWCWCBSW_NMAP) - 


WINDOWCWCBSL-STVBN) = .WINDOWCWCBSC STVBN] ! "JWINDOWCUCBSH_ P1_COUNT); 
cH SMOVE (. Sern ite “9 ete WINBOW_MAP+6, WINDOW_MAP); 
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oc 


7 POINTER = .W_POINT 
4 3 
9 2 } Finally build the pointer and count it. 
1 4 { 
ig 4 W_POINTERCWCBSW_ COUNT) = MINU (.COUNT, 65535); 
14 4 gr ouureRt ' -LBN; 
15 4 (Q_POINTERCWCBSC LBNI)<34 8> = .RVN; 
18 4 y POINTER = .WP NTER + 6; 
1 4 WINDOWCWCBSW_NMAP] = .WINDOWCWCBSW_NMAP] + 1; 
18 4 LBN = .LBN + 5 
19 4 COUNT = .COUNT = MINU (.COUNT, 65535); 
20 75 IF . COUNT EQL 0 THEN EXITLOOP: 
334 ig} END; 
: 75 END; ! end of header scan loop 
$e Lg END; ! end of block MAP_BUILD 
26 Le RETURN 1; 
58 75 END; ! end of routine TURN_WINDOW2 


~ TITLE ed Vea 
-IDENT \V04-000\ 


~-EXTRN GET_MAP_POINTER 
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«PSECT SCODES,NOWRT,2 


OFFC 00000 ENTRY TURN, WINDOW, Save R2,R3,R4,R5,R6,R7,RB,RI,=; 

04 C2 002 SUBL2 : : 

AC p MOVL WINDOW, R9 : 

AS OF 9 PUSHAB 48(R9) : 

6E 0D C PUSHL (SP : 

A D0 00 MOVL  44(R9), VBN : 

AC D 901 MOVL §§ START_VBN, RO : 

560 D1 0001 CMPL RO, VEN : 

21 18 19 BLEQU : 

AJ 3¢ 0001B MOVZWL 22(R9), R3 : 

51 D4 OOOTF CLRL : 

15 11 00 1 BRB $ ; 

BE 3¢ 000 3 1$: MOVZWL @W_POINTER, R4 : 

4 t0 000 ADDL > VBN : 

06 CO OO02A ADDL2 #6, W_POINTER : 

D1 00 n) CMPL RO. VEN : 

06 12 00030 BNE : 

51 BO 00032 MOVW J, 22(R9) : 

1A 11 00036 BRB ; 

53 F3 00038 38: AOBLEQ R3, J, 1$ : 

AC D1 0003C 3$: CMPL  DESIRED_VBN, RO : 

05 1E 0004 BGEQU 4$ : 

50 D1 0004 CMPL RO, #1 : 

55 1A 0004 BGTRU 8$ : 

16 Ad B4 00047 4$ CLRW 22 (R9) ; 

2c A 50 DO D004, MOVL RO, 44(R9) : 
6E 04 AE DO OO4E MOVL 4 (§P), W_POINTER : 
5B 08 AC DO 00052 S$: MOVL HEADER, R11 : 
08 AE 01 AB 9A 00056 MOVZBL 1(R11). 8(SP) : 
50 08 A p0 0058 OVL  8(SP), RO : 
58 6840 3E 0005F MOVAW R11) FROJ MAP_POINTER ; 
50 3A = ABsO9A 00063 6S: MOVZBL 58(R11), RO F 
50 08 AE CO 00067 ADDL2 &(SP), RO : 
50 6840 3E 0006B MOVAW (R11)€ROJ, RO ; 
50 58 D1 O006F CMPL §_MAP_POINTER, RO ; 
78 1 00072 BGEQU 11$ : 

00006 30 00074 BSBW © GET_MAP_POINTER : 

56 D3 00077 TSTL COURT F 

E8 13 00079 BEQL 46 6$ F 

SA 16 AQ 9 0078 MOVAB 22(R9), R10 : 
50 A 3¢ O07F 7$: MOVZWL (R10), RO : 
50 6 C4 be MULL #6 rb F 
50 6 C€0 00 ADDL2 #54, RO : 
50 08 Ad 10 00 ED CMPZ72V #0, #16, 8(R9), RO ; 
1E 9 GEQU =9$ : 

50 94 BE 3¢ MOVZWL a@4(SP), RO F 
50 c hag CC 94 ADDL2 44(R9); R ; 
Oc AC 30 pt 98 CMPL RO, DESIRED_VBN : 
1 1A 0009C 8$: BGTRU 11$ ; 

bA 87 Hi DECW (R10) ; 

50 04 BE ¢ A MOVZ2WL @4(SP), RO : 
rt") g AG ADDL2 RO, 44(R9) ; 
50 6A 3C O00A8 MOVZWL (R10), RO : 
50 06 C4 000AB ULL2 #6, RO : 


4 Page 
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MWTUR e 4 7: VAX-11 Bliss<-32 V4.0-742 
v04-0 12: $e: 138 9}: ee ‘48 DISKSVMSMASTER: CMOUNT. SRCIMWTUR2.B32¢ 79° 
04 «BE 360=— AD 0 2 Af MOVC RO, rap ts a4(SP) 
5 5 BF 9$: aovt EOint y-P 4 wer 
QOOOFFFF &F 01 000BA CMPL #65535 
1B C BLEQU 
50 FFFF F af C MOVZWL #65535, RO 
00 BE 8 C8 10$: MOVW RQ. aw POINTER 
51 6E 4 C ADDL3 W POINTER, R1 
61 F 00D MOVAQ jun 
51 6E 5 : 00D ADDL3 ‘ W boINTER, R1 
61 14 AC 6 00D MOVB 
6E 06 C 8 dB ADDL2 Pt W POINTER 
6A Hy D INCW ( 
57 OOOOFFF7 44 QOE MOV 655 re LBN 
56 9 C2 QOOE SUBL RO, C 
93 12 QOOEA BNEQ 7% 
FF74 31 QOOEC BRW 35 
50 01 DO OQOOEF 11$ MOVL ~ RO 
04 000F2 RET 
; Routine Size: 243 bytes, Routine Base: $CODE$ + 0000 
229 0759 
230 0760 EN 
231 0761 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
SCODES 243 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
cocecec= Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 
_$255$DUA28: CSYSLIBILIB.L32;1 18619 18 0 1000 00:02.0 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:MWTUR2/OBJ=OBJ$:MWTUR2 MSRCS:MWTUR2/UPDATE=(ENHS:MWTUR2) 
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Size: 243 ode ; 0 data bytes 


See teers 
m 
Ye 
co 
vo 
aa 
“ 
@ 


un : : 
; EL ime: : .0 
; Lines/CPU Min: 
Lexemes/CPU-Min: 2 $9 
peg | Used: 144 pages 
Compi ation Complete 
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